home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 008a / feb93cad.zip / ENT_SRC.LSP < prev    next >
Text File  |  1993-02-12  |  1KB  |  52 lines
  1. ; ENT_SRC.LSP
  2. ;
  3. ;    THIS ROUTINE RETRIEVES THE SELECTED ENTITIES EXTENDED DATA
  4. ;    REGISTERED UNDER THE APPLICATION NAME OF
  5. ;
  6. ;            KENT_44240_GIS_SOURCE
  7. ;
  8. ;    THE INFORMATION RECORDED UNDER THIS APPLICATION IS INTENDED TO
  9. ;    PROVIDE TRACKING OF THE ENTITIES' SOURCE DRAWING FOR GIS INPUT.
  10. ;    
  11. ;    THE INFORMATION IS RETURNED FOR USE IN GEL/SQL TAGGING OPERATIONS.
  12. ;
  13. (defun c:Ent_src ( )
  14.     (setq appname "KENT_44240_GIS_SOURCE")
  15. ;
  16. ;    INCLUDE NEXT LINE TO SELECT ENTITY OUTSIDE OF GEO/SQL ROUTINES
  17.     (setq tagent (entsel))
  18. ;
  19.     (SETQ DSRC nil)
  20.     (setq Ent_cur (entget (CAR tagent) (list "*")))
  21.  
  22.     (if (setq ent_dsc (assoc -3 ent_cur))
  23.       (progn
  24.         (if (setq ent_dat (assoc appname (cdr ent_dsc)))
  25.           (progn
  26.             (if (setq xd_data (assoc 1000 (cdr ent_dat)))
  27.           (progn
  28.                 (SETQ DSRC (CDR XD_DATA))
  29.           )
  30.           (PROGN
  31.                 (setq DSRC "NONE")
  32.           )
  33.         )
  34.           )
  35.         )
  36.       )
  37.       (PROGN
  38. ;        (princ "\nNo xd_data\n")
  39.         (setq DSRC "NONE")
  40.       )
  41.     )
  42.     (if DSRC (setq x DSRC) (setq x "N/A"))
  43. ;
  44. ;    INCLUDE THESE LINES TO DISPLAY RESULTS OUTSIDE OF GEO/SQL ROUTINES
  45.  
  46. ;    (PRINC DSRC)
  47. ;    (PRINC "\n")
  48. ;    (PRINC x)
  49. ;    (PRINC "\n")
  50. )
  51. 
  52.